home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok02.lha / M2Code / M2ACode / M2ACodeDemo2 / AssSort.mod < prev    next >
Encoding:
Modula Implementation  |  1993-08-16  |  477 b   |  27 lines

  1. IMPLEMENTATION MODULE AssSort;
  2.  
  3. FROM SYSTEM IMPORT BYTE,WORD,ADDRESS,BITSET,LONGSET,FFP,INLINE,SETREG,REG;
  4.  
  5. CONST
  6.   MOVEMS = 48E7H;
  7.   MOVEML = 4CDFH;
  8.  
  9. (*------  AssSort  ------*)
  10.  
  11. PROCEDURE AssSort(A0{ 8}:ADDRESS;D0{ 0}:LONGCARD);
  12.  
  13. BEGIN
  14.  
  15.   INLINE(MOVEMS,03800H);
  16.  
  17.   INLINE(04281H,02401H,02248H,05282H,05489H,03611H,0B650H,06406H);
  18.   INLINE(03810H,03083H,03284H,0B480H,065ECH,05281H,05488H,0B280H);
  19.   INLINE(065E0H);
  20.  
  21.   INLINE(MOVEML,0001CH);
  22.  
  23. END AssSort;
  24.  
  25. BEGIN
  26. END AssSort.
  27.